Application.ExecuteCommand("Global Options")
OptionsDlg.ActiveTab = "Design"
OptionsDlg.ActiveTab = "Global|General"
OptionsDlg.GlobalDlg.Style = "Full screen"
OptionsDlg.Ok.Click()